срооооооооооооооооочноооооооооооооо
хотябы что то

1)

• program p1;
  
• var F,D:integer;
  
• begin
  
• F:=3;
  
• D:=7;
  
• writeln('Число F = ',F,', а число D = ',D);
  
• end.

2)

• program p2;
  
• var C,S:integer;
  
• begin
  
• readln(C,S);
  
• writeln('Число S= ',C,' и является целым числом.');
  
• writeln('Число S= ',S,', число S тоже целое число.');
  
• end.

3)

• program p3;
  
• var X,Y,Z:integer;
  
• begin
  
• X:=23;
  
• Y:=16;
  
• Z:=X-Y;
  
• writeln('Разность=',Z);
  
• end.

4)

• program p4;
  
• var X,Y,Z:integer;
  
• begin
  
• readln(X,Y);
  
• Z:=X*Y;
  
• writeln('Произведение=',Z);
  
• end.

5)

• program p5;
  
• var X,Y,Z,S:integer;
  
• begin
  
• readln(X,Y,Z);
  
• S:=X+Y+Z;
  
• writeln('Сумма=',S);
  
• end.

6)

• program p6;
  
• var N,m:integer;
  
• begin
  
• readln(N);
  
• m:=(N-3)*6;
  
• writeln('Масса=',m,' кг');
  
• end.

7)

• program p7;
  
• var X,Y,Z:integer;
  
• begin
  
• readln(X,Y);
  
• Z:=X-Y;
  
• writeln(Z,' грибов собрал Коля');
  
• end.

8)

• program p8;
  
• var X,T,S:integer;
  
• begin
  
• readln(X,T);
  
• S:=(X+3)*T;
  
• writeln(S,' км прошла лодка за ',T,' час(ов)');
  
• end.

9)

• program p9;
  
• var H,K,C,Y,O:real;
  
• begin
  
• readln(H,K,C,Y);
  
• O:=((H*100+K)-(C*Y))/100;
  
• writeln(O,' рублей осталось у Маши');
  
• end.

10)

• program p10;
  
• var x,y:real;
  
• begin
  
• readln(x);
  
• y:=5*x-7;
  
• writeln('Результат ',y);
  
• end.