Program Z1;
Var a, b, c, d,e,f,g,h,i.j.k.l:integer;
begin
writeln('Введите переменную a');
readln(a);
writeln('Введите переменную b');
readln(b);
writeln('Введите переменную c');
readln(c);
writeln('Введите переменную d');
readln(d);
e:=a/b;
f:=c/d;
g:=e+f;
h:=a*d;
i:=b*c;
j:=b*d;
k:=i/j;
l:=h+k;
if (g==l) then writeln('chisla ravny');
else writeln('ne ravny');
end.
Program Z1;
Var a, b, c, d,e,f,g,h,i.j.k.l:integer;
begin
writeln('Введите переменную a');
readln(a);
writeln('Введите переменную b');
readln(b);
writeln('Введите переменную c');
readln(c);
writeln('Введите переменную d');
readln(d);
e:=a/b;
f:=c/d;
g:=e+f;
h:=a*d;
i:=b*c;
j:=b*d;
k:=i/j;
l:=h+k;
if (g==l) then writeln('chisla ravny');
else writeln('ne ravny');
end.