Question

Помогите,пожалуйста, что не так?

Answer 1

точка после end - конец программы

если тебе нужно впихнуть "несколько программ" в одну , то пользуйся процедурами (procedure)

Answer 2

а куда это слово вставить?)

Answer 3

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.