1) коммутативный (переместительный)
Логические переменные можно менять местами
Program Pr1; Uses Crt;
var a,b,c: integer; y: real;
begin clrscr;
Writeln('введите a,b,c');
Readln(a,b,c);
y=b+sqrt(b*b+4*a*c)/(2*a)-a*a*a*c+b*b-2;
Writeln('Y=', y:5:2);
Readln;
End.
#1
var
x,y,z : integer;
a : real;
begin
readln(x,y,z);
a := ((x + y - z)/(x*x + 2));
writeln(a);
end.
#2
var
x,y,z : integer;
a : real;
begin
readln(x,y,z);
a := 5*((2*x-z)/(3+y*y));
writeln(a);
end.
#3
var
x,y,z : integer;
a : real;
begin
readln(x,y,z);
a := (1 + z)*((x+(y/x*x+4))/(2+(1/(x*x+4))));
writeln(a);
end.
#2.1
const pi = 3.14;
var
l,s,r : real;
begin
readln(r);
l := 2 * pi * r;
s := pi * r * r;
writeln(l);
writeln(s);
end.
#2.2
var
x : real;
begin
readln(x);
writeln((180 - x)/2);
end.
Если в паскале то
Program fhfhjhf;
var a , a1 :integer ;
begin
Writeln('апиши число');
Readln(a);
Writeln('Найдем число');
a1 = a*0.001;
If a1>100 then writeln('Конечно больше')
else Writeln('Конечно меньше');
Writeln('Не за что');
end.