Хорошие ,,потроха,, ,как считаете???

var a,b,c:iteger;
beginwriteln ('введите длину прямоугольника');
read (a)
writeln ('введите ширину прямоугольника');
read (b)
begin
c:=a*b
writeln('площадь прямоугольника=',c);
end.
Как правильно написать программу,пишет что ошибка помогите, программа паскаль.

видеопамяти может быть равно 1, 2 или 4.

1
2
3
4
5
6
7
8
9
10

var i, n: integer;
p :real;
begin
write('Введите n: ');
readln(n);
p:= 1;
for i:= 1 to n do
p:= p*2;
writeln('Результат = ', р);
end.

по идее надо обновить? Но в чем проблема, у меня на ПК нет инета, так как его обновить? Т.е скачать новый и установить? Спасибо за внимание.: )

В один из летних дней Аркадий со своими родителями отправился в

автомобильное путешествие. Он очень надеялся, что за городом им удастся

избежать ненавистных пробок. Но, увы, уже через час они попали в затор.

Аркадий загрустил и задумался о том, с какой скоростью они могли бы

ехать, если бы не было пробки... Участок дороги, на котором они сейчас

находятся, — однополосный. А это значит, что обгонять едущие впереди

машины не представляется возможным. Т. е. какой бы мощной машина ни

была, она все равно не сможет ехать быстрее, чем машина впереди неё.

Аркадий хорошо разбирается в машинах и поэтому знает максимальные

скорости тех машин, которые едут впереди. Теперь он хочет понять, с

какой максимальной скоростью могла бы ехать каждая машина на данном

участке.

ВХОДНЫЕ ДАННЫЕ
В первой строчке дано число N (1 ≤ N ≤ 200) —
количество машин в пробке. В следующих N строчках записано по одному
целому числу в каждой, причем в i-й строчке записана скорость i-й
машины. Скорость каждой из машин не превышает 300. Считается, что (i + 1)-я машина едет за i-й, а первая машина может ехать со своей максимальной скоростью.
ВЫХОДНЫЕ ДАННЫЕ
Выведите N чисел — скорости машин, с которыми они могли бы ехать на данном участке.
ВХОДНЫЕ ДАННЫЕ
2
80
100
ВЫХОДНЫЕ ДАННЫЕ
80 80