Умовний оператор

program proba25;

uses crt;
Var skr ,skv ,a,r:real;
BEGIN
write('skr=');read(skr);
write('scv=');read(skv);
r:=sqrt(skr/pi); a:=sqrt (skv);
if r>a then writeln ('radius')else writeln('storona');
END.




uses crt;
Var x,c1,c2,c3, p:integer;
BEGIN
read(x);
c1:=x mod 100;
c2:=x div 10 mod 10;
c3:=x div 10;
p:=c1*c2*c3;
if x mod p =0 then writeln ('yes') else writeln('no');
END.
Повинно вийти  -122 no 112yes


program program60;

uses crt;
Var n,a,b,c:integer;
BEGIN
readln(n);
a:=n mod 10;
n:=n div 10;
b:=n mod 10;
n:=n div 10;
c:=n;
n:= 100*a+10*b+c;
writeln(n)
END.

program program65;
uses crt;
var
n: word;
a,b: byte;
BEGIN
readln(n);
a:=n mod 10;
n:=n div 10;
b:=n mod 10;
n:=n div 10;
a:=10*a+b;
writeln(n=a)
END.


program prg56;

uses crt;
var i,n:word;
BEGIN
readln(n);
for i :=1 to n do begin
writeln (i,' ')
end;
END.