1.скласти програму для обчислення гіпотенузи прямокутного трикутника (паскаль)

Var a, b, c: real; begin writeln('введите сторону a'); readln(a); writeln('введите сторону b'); readln(b); c : = sqrt((a * a) + (b * b)); writeln('гіпотенуза прямокутного трикутника дорівнює ', c); end.

uses crt; var

  a,b,c,min: integer; begin  writeln('введи три числа: ');   readln(a,b,c);   min: =a;   if b< min then min: =b;   if c< min then min: =c;   writeln('наименьшее из этих чисел:   ',min); end.

program xxx;

var s : string;

        а : integer;

begin

    writeln ('введите слово-');

    readln (s);

    а: = length(s)

    writeln ('длина слова=', a);

    readln

end.