Задачи паскаль

[deamrez]

Уважаемые форумчане,прошу помочь мне...я знаю что я глуп,помогите решить задачи и составить блок-схему,там 3 задания.Буду очень благодарен.Безымянный.jpg

[ZX Spectrum-128]

1. Напишите формулу нахождения площади прямоугольника, и я помогу вам составить программу.

[deamrez]

Сообщение от ZX Spectrum-128

1. Напишите формулу нахождения площади прямоугольника, и я помогу вам составить программу.

может не будем глупости писать?

[ZX Spectrum-128]

Отчего же глупости? Вы же хотите, чтобы вам написали программу? Ну так сделайте сами хоть что-то?
2. Если x>3 то
Y:=x*x +5
Иначе
Y:=x-8;
Переводите на англ. язык, получаете программу на паскале.

[NoviceYola]

 uses crt; 
  var A, B, S:integer;
begin
   write('A='); read(A);
    write('B='); read(B);
     S:=A*B;
      write('S=',S);
end.

uses crt;
  var sum, i:integer;
begin
    for i:=1 to 100 do
     sum:=sum+i;
      write ('sum=',sum);
end.

[NoviceYola]

uses crt;
  var
   x, y: integer;

  begin
    write ('x='); readln (x);
     if x>3 then y:=(x*x)+5
      else
       if x<=3 then y:=x-8;
        write ('y=', y)
end.

[Poma][a]

sum:=sum+i;

изначально sum = 0..и всё тогда прекрасно..