Определить, какая из точек удалена от начала координат на большее расстояние - Turbo Pascal - Ответ 338915

Program k;
Uses crt;
Var x1,x2,y1,y2:integer;
Begin
Clrscr;
Writeln('Введите координаты первой точки: ');Read(x1,y1);
Writeln('Введите координаты второй точки: ');Read(x2,y2);
If (abs(x1)>abs(x2)) and (abs(y1)>abs(y2)) then
Writeln('Первая точка удалена на большее расстояние от начала координат, чем вторая')
else Writeln('Вторая точка удалена на большее расстояние от начала координат, чем первая');
End.

Program pogoda;
Uses crt;
Var p,k:byte;
Begin
Clrscr;
Writeln('Возможные варианты состояния погоды: ');
Writeln('<1>   Дождь');
Writeln('<2>   Туман');
Writeln('<3>   Ветер');
Writeln('<4>   Солнце');
k:=1;
Repeat
Case p of
1: writeln('Беру отгул');
2,3: writeln('Жду нужную погоду');
end;
Write(k,'-й день: ');
Write('Введите номер, соответствующий состоянию погоды: ');Read(p);
Writeln;
k:=k+1;
Until p=4;
{Следующую строку добавил от себя}
Writeln('Иду на работу');
End.

Program sir;
Uses crt;
Var k,m:integer;s:real;
Begin
Clrscr;
Repeat
Write('Введите цену одного кг. сыра (в рубл.): ');Read(k);
Write('Введите массу (в граммах): ');Readln(m);
s:=(m*k)/1000;
Writeln('Стоимость сыра массой в ',m,' г. = ',s:3:1,' р.');
Writeln;
Until m=1000;
End.