Var a,b,c:real;
begin
writeln('введите два катета');
readln(a,b);
c:=sqrt(sqr(a)+sqr(a));
writeln(c);
<span>end.</span>
<!DOCTYPE>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<title>Таблица</title>
</head>
<body>
<table border="1">
<tr><th rowspan="2">ФИ</th><th colspan="2">Предмет</th><th rowspan="6">Примечание</th></tr>
<tr><th>математика</th><th>информатика</th><tr>
<tr><td>Петров</td><td>4</td><td>4</td></tr>
<tr><td>Сидоров</td><td>5</td><td>4</td></tr>
<tr><td>Бубликов</td><td>3</td><td>3</td></tr>
</table>
</body>
</html>
Объяснение:
В начале у тебя должен быть принтер. Потом тебе нужно создать Документ Microsoft Office Word И тебе надо сохранить нежный код потом ты вставишь в Документ Microsoft Office Word и печатаешь. И все
Const
n = 30;
var
fin, fout: Text;
s: string;
begin
Assign(fin, 'input.txt');
Reset(fin);
Assign(fout, 'output.txt');
Rewrite(fout);
while not eof(fin) do
begin
readln(fin, s);
if length(s) > n then writeln(fout, s)
end;
Close(fin);
Close(fout)
end.