Вопрос/Задача:
program product;
uses crt;
var a,b,c: integer;
clrscr;
begin
a: =39*54-sqr(84);
writeln(a);
readkey;
end
1024 килобайт, или 1 мегабайт. если изображение bmp, остальные форматы вшивают в байты свои "печати"
program zadacha2;
var i,n,a: integer;
b,y,c,l: real;
readln(n);
a: =1;
b: =2;
c: =5;
for i: =1 to n do
if a mod 2 = 0 then
l: =a+b/c
else
l: =a-b/c;
a: =a+1;
b: =b+2;
c: =c+5;
y: =y+l;
end;
writeln(y: 2: 2);
end.
первую по подробней расспишите