Где ошибка в paskal ?

Задача:  Дано  координати  двох  протилежних  вершин  прямокутника  (x1 ,y1  )  і  (x 2,y2  ).  Сторони прямокутника а і b паралельні осям координат. Знайти периметр Р  и площу S даного прямокутника, спочатку обчисливши довжини сторін а і b за формулами: а=|x2– x1|, b=|y2 – у1|.

Вот мое решение:
program n_4_25;
Uses WinCRT;
var
  x1,x2,y1,y2,a,b,p,s:real;
begin;
WriteLn(‘Vvedite x1 i y1:’);
ReadLn(x1,y1);
WriteLn(‘Vvedite x2 i y2’);
ReadLn(x2,y2);
a:=abs(x2-x1);
WriteLn(‘a=’,a);
b:=abs(y2)-abs(y1);
WriteLn(‘b=’a);
p:=2*(a+b);
WriteLn(‘p=’p);
s:=a*b;
WriteLn(‘s=’s);
ReadLn
End.

Где ошибка?

Добавлено….
Даны координаты двух противоположных вершин прямоугольника (x1 ,y1) и (x 2,y2 ) Стороны прямоугольника а и b  параллельные осям координат. НАйти периметр P и площадь S данного прямоугольника, но с начала нужно посчитать  длины сторон а и b по формулам а=|x2– x1|, b=|y2 – у1|

2 thoughts on “Где ошибка в paskal ?”

  1. program n_4_25;
    Uses WinCRT;
    var
     x1,x2,y1,y2,a,b,p,s:real;
    begin;
    WriteLn(‘Vvedite x1 i y1:’);
    ReadLn(x1,y1);
    WriteLn(‘Vvedite x2 i y2’);
    ReadLn(x2,y2);
    a:=abs(x2-x1);
    WriteLn(‘a=’,a);
    b:=abs(y2)-abs(y1);
    WriteLn(‘b=’,a);
    p:=2*(a+b);
    WriteLn(‘p=’,p);
    s:=a*b;
    WriteLn(‘s=’,s);
    ReadLn
    End.

    Возможно так? Просто у Вас не хватало запятых.

Комментарии запрещены.