F
FaRReLL
Код:
program vlad;
uses crt;
var a,b,y: real;
begin
clrscr;
write('введите a ');
readln(a);
write('введите b ');
readln(b);
if a<b then
y:=((a*5)-8)/b else
if a>b then
y:=2+(b/a) else
y:=-2;
writeln('y= ',y:5:2);
readln;
end.