Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program m;
uses crt;
var a,b,c,sum: integer;
begin
clrscr;
readln(a,b,c);
sum: =a+b+c;
writeln(' ',sum);
readkey;
end.
var a,res: integer;
writeln('введите число');
readln(a);
res: =sqr(a);
writeln('квадрат числа,'a', равен,'res',');
readln;
Популярные вопросы