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

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

Задать свой вопрос
1 ответ

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

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

Серега Матшин
а куда это слово вставить?)
Милена Левир
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.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт