Program z1;
var a: integer;
Begin
readln (a);
if (a <1000) and (a>99) then writeln ( 'да')
else writeln('нет');
End.
Program z2;
var a, b : integer;
Begin
readln ( a, b);
writeln (a,': ',(a*a) +(a*a*a));
writeln (b,': ',(b*b) +(b*b*b));
end.
program z3
var n, i, k: integer;
Begin
readln ( n);k:=0;
for i : 1 to n do
k:=k+i;
write (k);
end.
program z3
var a,i: integer;
Begin
readln ( a );
for i: a downto 1 do
write( I, ' ');
End.
program ms301;
var a,b,c:integer;
begin
writeln('Введите три числа');readln(a,b,c);
A:=sqrt(a);
B:=sqrt(b);
c:=sqrt(c);
writeln(a,', ',b,', ',c);
readln;
end;
Ответ 2 , последовательность символом , слов , абзацев
В поисковике забей открой с 1 по 3 сайт