Programul a:
var
x,y:real;
begin
write('Introduce-ti x:');
read(x);
if x>= 0 then
y:=2*x
else
y:=x/2;
writeln('Rezultatul:',y);
end.
Programul b:
var
x,y:real;
begin
write('Introduce-ti x:');
read(x);
if x>5 then
y:=x+3
else
y:=x-3;
writeln('Rezultatul:',y);
end.
Programul c:
var
x,y:real;
begin
write('Introduce-ti x:');
read(x);
if abs(x)>5 then
y:=x
else
y:=2*x;
writeln('Rezultatul:',y);
end.
Program d:
var
x,y:real;
begin
write('Introduce-ti x:');
read(x);
if x>=3 then
y:=x
else
y:=x+4;
writeln('Rezultatul:',y);
end.
Programul P51 va afisa:
exemlu la readln ai dat numarul 4 va afisa 2*4=8
