Вот на примере этого можно много чего составить, не знаю скрлько тебе задач сделать надо но вот:
Program ves;
var
i,min,ch:LongInt;
begin
readln(ch);
min:=ch;
for i := 1 to 3 do
begin
readln(ch);
if min>ch then min:=ch;
end;
writeln(min)
end.
пж отметь как лучший
Program chik;
var x,y:real;
begin
readln(x,y);
if((y<=2)and(x>=-3)and(x<=2)and(y>=0))or
((y<=0)and(x>=-1)and(x<=1)and(y>=-1)and(x*x+y*y<=1))then
writeln('ПРИНАДЛЕЖИТ')else writeln('Не принадлежит');
<span>end.</span>
Program n1;
var i: integer;
sum: real;
begin
sum:=0;
for i:=1 to 100 do sum:=sum+i*i;
writeln(sum);
end.