у васи зарплатаD,у пети R. у кого зарплата меньше?Учесть случай равенства.Записать протокол выполнения для D=20000, R=29000

1
нужно составить блок-схему

Ответы и объяснения

2013-12-04T22:06:12+04:00
Program zarplata;
var d,r:integer;
begin
writeln('Введите через пробе зарплату Васи и Пети.');
read(d,r);
if d=r then
writeln('У Пети и Васи одинаковая зарплата.')
else if r<d then
writeln('У Пети зарплата меньше.')
else
writeln('У Васи зарплата меньше.');
end.