1.Найдите ошибки в программе и напишите верный вариант программы: program a7;

begin

var a, b c integer;

real(a, b);

c:=sqr a;

writeln(’выведите значения величин a и bʼ);

writeln((a+b+c):4);

end.
2.В окне вывода результатом выполнения команды

write (’сумма чисел 10+20=’) будет:

а) сумма чисел 10+20=30; б) сумма чисел =30;

в) сумма чисел 10+20=.

В программе a7 есть несколько ошибок. Вот исправленный вариант программы:

program a7;

var

a, b, c: integer; // нужно разделить объявление переменных запятыми

begin

readln(a,b); // заменим real(a,b) на readln(a,b), чтобы прочитать значения a и b

c:=sqr(a); // добавим пропущенную скобку после a, чтобы выполнить возведение в квадрат

writeln('выведите значения величин a и b');

writeln((a+b+c):4);

end.

ответ на второй вопрос: результатом выполнения команды write('сумма чисел 10+20=') будет вариант (в): сумма чисел 10+20=. Если вы хотите вывести результат сложения чисел 10 и 20, нужно дополнить команду write соответствующим значением, например, так: write('сумма чисел 10+20=', 10+20);. Тогда в окне вывода будет выведено "сумма чисел 10+20=30".

1. заливаем в бочку 5 литров. 2. зачерпываем 5литровым и выливаем в 9-литровое ведро. 3. снова зачерпываем 5 литровым и льём в 9-литровое доверха. в 5-литровом остаётся 1 литр. его выливаем в бочку к уже там находящимся 5 литрам. итог - 6 литров.

как я понял надо составить блок-схему

задаете числа, и задаете периметр и площадь равный 0

условие что все больше 0

если да то дальше если нет то конец

после этого сразу проверка на ваши больше и меньше 0 и тому прочее

если не выполняется какое-то условие то конец,если все вып. то опять условие 

с^2=a^2+b^2

если да то выполнить действие s=a*b   вывод s   end

если нет то p=a+b+c   вывод p   end