надо написать програму в паскале, срочно 8 классЗадание 1Ввести с клавиатуры а1, b1, a2, b2.Найти s=√(a2−a 1)2+(b2−b1)2Задание 2Ввести с клавиатуры r, t, y.Найти N=√z (z−r )( z−t)( z− y )r+t+ y, если z=r+t+ y/2

Задача 1

program название;

var a1, b1, a2, b2, s:real;

begin

writeln (Введите a1);

readln (a1);

writeln (Введите b1);

readln (b1);

writeln (Введите a2);

readln (a2);

writeln (Введите b2);

readln (b2);

s:=sqrt((a2-a1)*2+(b2-b1)*2);

writeln (':', s);

end.

Задача 2

program название;

var r, t, y, z, N:real;

begin

writeln (Введите r);

readln (r);

writeln (Введите t);

readln (t);

writeln (Введите y);

readln (y);

z:=r+t+y/2;

N:=sqrt(z*(z-r)*(z-t)*(z-y)*r+t+y);

writeln (':', N);

end.

Программы можешь подправить. Выражения могут быть записаны неправильно т. к. Не совсем их понял.