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

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.