В девятиэтажном доме на каждом этаже расположено по 4 квартиры. Составить программу, которая по номеру этажа n (1< n <9) выводит номера квартир на этом этаже. Pascal</p>
var
i,n:integer;
begin
read(n);
for i:=0 to 3 do
writeln (4*n-i);
end.
Program fasf;
n,q:integer;
write('Введите этаж:');
readln(n);
q:=n*4;
writeln('Квартиры:',q,q-1,q-2,q-3);