Специфическими структурными характеристиками межгруппового восприятия, по В.С. Агееву, являются целостность и унифицированность

var a,b,c:real;
begin
read(a,b,c);
if (a>=b)and(a>=c) then writeln(a) else
if (b>=a)and(b>=c) then writeln(b) else
writeln(c)
end.

думаю так

uses crt;
var a, b, c: word;
flag: char;

BEGIN
clrscr;
repeat
readln(a, b, c);
if (a>b) and (a>c) then write(a) else
if (b>a) and (b>c) then writeln(b) else
writeln(c);
write('Povtorit? (Y/N)');
readln(flag);
until upcase(flag)<>'Y';
writeln('dlya vihoda nazhmite kybuy klavishu');
readkey
end.