Input A,B
if a>b then print a-b else print a+b
end
Что-то я далек от блок схем... Обе картинки цикла
var
i: Integer;
name, surname: String;
begin
writeln('Введите имя');
readln(name);
writeln('Введите фамилию');
readln(surname);
for i := 1 to 10 do
writeln(name,' ', surname);
end.
1 источник будильник, приемник мальчик,
2источник регулировщик приемники машины и пешеходы
//PascalABC
var
N : integer;
begin
write('Введите число > ');
readln(N);
write('Получите модуль числа > ', abs(N));
end.