Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program p_1
var
a: string
begin
writeln ('vvedite nazvanie rek');
read (a);
if (a='волга,днепро,нёман,енисей')then
writeln ('в беларуси протекают только днепро,нёман');
end.
program fasf;
n,q: integer;
write('введите этаж: ');
readln(n);
q: =n*4;
writeln('квартиры: ',q,q-1,q-2,q-3);
Популярные вопросы