Var a,b,c,d,res:integer;
begin
writeln(Введите первое число);
readln(a);
writeln(‚Введите второе число);
readln(b);
writeln(Введите третье число);
readln(c);
writeln(‚Введите четвертое число);
readln(d);
res:=a;if b
readln;
end.
мог бы и побольше баллов поставить)
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.