Написать программу для ввода значения величины x целого типа, присваивания величине y действительного типа значения 5.5, вычисления значения величины z = x - y и вывода значения величины z. протестировать программу
для x=5.5, x=0, x=-10.2

program chislo;

var x: integer;

          z,y : real;

begin

readln(x);

y: =5.5;

z: = x-y;

writeln(z);

end.

при запуске программы вводите эти значения и тестируете.

var i,s: integer;

begin

writeln('summa ');

for i: =100 to 999 do

if i mod 17 =0 then s: =s+i else s: =s+0;

writeln(s)

end.

100*1000000/8=12500000 байт в секунду