640 * 480 = 307200 точек на экране
64 Кбайт / 307200 = 64 * 1024 байт / 307200=0,64 * 8 бит/ 3 = 1,7 бит, т.е. больше двух цветов не получится.
32 цвета составляют 2 байта. Значит количество точек на изображении 64000
var
a, b: real;
begin
writeln('Введите 2 числа');
readln(a, b);
if a > b then
begin
a:= a + 3;
b:= b - 5;
end;
if a < b then
begin
a:= a - 5;
b:= b + 3;
end;
writeln('a = ', a, ', b = ', b);
end.
Program Program1;
var
x,y:real;
begin
write('Введите x: ');
readln(x);
y:=7*SQR(x)-3*x+6;
writeln('y=',y);
end.