Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
доброты,дружбы, труда,силы,ума, и тд выбери один который тебе надо
program p_1
var
a: string
begin
writeln ('vvedite nazvanie rek');
read (a);
if (a='волга,днепро,нёман,енисей')then
writeln ('в беларуси протекают только днепро,нёман');
end.
program summa;
var s, a, b, c : word;
write('введите a - > '); readln(a);
write('введите b - > '); readln(b);
write('введите с - > '); readln(c);
s: =a+b+c;
write(' сумма равна ',s);
readln
Популярные вопросы