Не знаю как делать=((

[oup08]

Ребят, помогите пожалуйста=))ваще не понимаю как делать=((2 задачи надо=((
1)Вывести таблицу перевода значений давлений от 1000 до 1252 Па в бары с шагом 20.5Па;
2)P:=3;X:=4;
FOR I:=1 TO 4 DO
FOR J:=2 TO 4 DO
BEGIN P:=P+I;X:=X-2;END;
Помогите кому не сложно=))
Вот мыло:
pashok02.94@mail.ru

[Stilet]

2)P:=3;X:=4;
FOR I:=1 TO 4 DO
FOR J:=2 TO 4 DO
BEGIN P:=P+I;X:=X-2;END;

Вот так:

MODULE ogo;
IMPORT StdLog;

PROCEDURE aga*;
VAR P,X,I,J:INTEGER;
BEGIN
 P:=3;X:=4;
 FOR I:=1 TO 4 DO 
  FOR J:=2 TO 4 DO 
   P:=P+I;X:=X-2;
   StdLog.Int(X);StdLog.Tab;StdLog.Int(P);StdLog.Ln;
  END; 
 END;
END aga;

END ogo.;
ogo.aga;

Па в бары

Эм... А как они там переводятся?

[oup08]

Спасибо большое=))