программирование на языке Turbo Pascal

Program One;
var a,b,c,d, k: byte;
begin
writeln ( ' Vvedite 4 chisla ');
readln (a);
readln (b);
readln (c);
readln (d);
k:= a+b+c+d;
writln ( ' Summa chisel =', k);
readln;
end.


Program Two;
var a,b,c,d: byte;
var k: intenger;
begin
writeln ( ' Vvedite 4 chisla ');
readln (a);
readln (b);
readln (c);
readln (d);
k: = a-b-c-d;
writlen ( ' Rasnost chisel = ', k);
readln;
end.


Program Three;
var a,b,c,d: intenger;
var k: real;
begin
writeln ( ' Vvedite 4 chisla ');
readln (a);
readln (b);
readln (c);
readln (d);
k:= a* b*c*d;
writeln ( ' Proisvedenie chisel = ', k);
readln;
end.


Program Three;
var a,b,c,d: intenger;
var k: real;
begin
writeln ( ' Vvedite 4 chisla ');
readln (a);
readln (b);
readln (c);
readln (d);
k:= a/ b/c/d;
writeln ( ' Chastnoe chisel = ', k);
readln;
end.

презентация: мексика