maxpavlutenkof
procedure ab; var a, b: real; begin write('введите два числа '); read(a, b); writeln('сумма = ', a + b); writeln('разность = ', a - b); writeln('произведение = ', a * b); writeln('частное = ', a / b); end;
var s: real;
begin ab; write('введите неотрицательное число '); readln(s); write('корень квадратный = ', sqrt(s)); end.
Answers & Comments
точка после end - конец программы
если тебе нужно впихнуть "несколько программ" в одну , то пользуйся процедурами (procedure)
var
a, b: real;
begin
write('введите два числа ');
read(a, b);
writeln('сумма = ', a + b);
writeln('разность = ', a - b);
writeln('произведение = ', a * b);
writeln('частное = ', a / b);
end;
var
s: real;
begin
ab;
write('введите неотрицательное число ');
readln(s);
write('корень квадратный = ', sqrt(s));
end.