Program <имя программы>
var <имя переменной > : <тип переменной>; - обязательная часть, объявление переменных
uses crt;
begin
<тело программы> - обязательная часть
end.
Вроде так. дальше протяжку сделайте и все
Var x,s:integer;
begin
readln(x);readln(s);
while x<>5 do begin
s:=x;
x:=x+1;
s:=s+x;
end;
writeln(s);writeln(x);
end.
Если будут неправильно то попросите меня исправить
Var a,b,c,x:integer;
begin
x:=random (899) +100;
writeln('x= ', x);
a:= x div 100; {первая цифра}
b:=(x mod 100) div 10; {вторая цифра}
c:= x mod 10; {третья цифра}
writeln(a,',',b,',',c);
end.
Const n=13;
var
c:array[1..n] of integer;
i,num:integer;
begin
for i:=1 to n do c[i]:=random(-10,10);
for i:=n downto 1 do begin
write(c[i],' ');
if c[i] < 0 then begin
writeln(i);
break;
end;
end;
end.