Оивт 8 класс Паскаль хоть что-нибудь
​

program xxx;

var a: string;

begin

    write('введите строку-');

    read(a);

    write(a);

  readln

end.

на пиксель приходится 512*8/32²=4 бита.  2^4=16 цветов.

var

a,b,c: real;

begin

readln(a,b,c);

writeln((a+b+c)/3);

end.

var v1,v2,t,t1: real;

begin

  read(v1,v2,t,t1);

  writeln(v1*(t+t1)< =v2*t1);

end.