Согласно блок схеме алгоритм закончит работу если А не будет больше нуля значит должно быть А<=0, а С должно быть больше 0. Следовательно рри значении А=0 и С=2 алгоритм завершится
var a,b,c,d:real; begin writeln('Введите 3 числа'); readln(a,b,c); d := a + b + c; writeln('сумма чисел равна',d); end.
ну или
var a,b,c,d:real; begin writeln('Введите первое число'); readln(a); writeln('Введите второе число'); readln(b); writeln('Введите третее число'); readln(c); d := a + b + c; writeln('сумма чисел равна',d); end.
2)
var a,b,c,d:real; begin writeln('Введите первое число'); readln(a); writeln('Введите второе число'); readln(b); writeln('Введите третее число'); readln(c); d := a * b * c; writeln('произведение чисел равна',d); end.
3)
var a,b,c:real; begin writeln('Введите первое число'); readln(a); writeln('Введите второе число'); readln(b); c := a : b; writeln('деление двух чисел равна',c); end.