напишите программу выбора наибольшего из трёх введённых с клавиатуры действительных чисел и производящую запрос об окончании работы

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;

BEGINclrscr;repeatreadln(a, b, c);if (a>b) and (a>c) then write(a) elseif (b>a) and (b>c) then writeln(b) elsewriteln(c);write('Povtorit? (Y/N)');readln(flag);until upcase(flag)<>'Y';writeln('dlya vihoda nazhmite kybuy klavishu');readkeyend.