Напишите программу по информатике для паскаля abc

var a,c:real;

begin
readln(a);
if a<=-5 then c:=(a+5)/3
else c:=sqr(a)+a+1;
writeln(c);
end.

=============================
var x,y:real;

begin
readln(x);
y:=3*x+2;
writeln(y);
end.

===========================
begin
var a:=Range(1,101,2).Println;
writeln(a.Sum);
end.