fractii.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 19 行

program fractii;
var a,b,c,d,e,f:integer;
begin
write('a= ');
readln(a);
write('b= ');
readln(b);
write('c= ');
readln(c);
write('d= ');
readln(d);
write('e= ');
readln(e);
write('f= ');
readln(f);
if b*f*d=0 then write('eroare 1');
if (a*f<=b*e) and (e*d<=f*c) then writeln('adevarat')
                             else writeln('fals');
end.