Графический интерфейс Pascal ABC

{раздел описания модулей}
var ...;

{раздел объявления переменных}
label ...; {раздел объявления меток}
const ...; {раздел объявления констант}
type ...; {раздел объявления типов}
function ...; {раздел объявления функций}
procedure ...; {раздел объявления процедур}
begin
{последовательность операторов}
end. {конец программы}

писаться после двух слэшей

textout (10, 10, 'Моя первая программа');

end.

их
произведение.

Writeln — после вывода, курсор переходит на новую строку.
Вывод

И курсор перейдет на новую строку.
• числовые — Write (1,2); Write

(3, ' ',56);
(числа выводятся без дополнительных пробелов)
На экране: 123 56
И курсор будет стоять после цифры 6.

Вывод

клавиатуры.

программы }
Var A,B,S: Integer; {Раздел описания

переменных }
Begin { Раздел операторов}
Writeln(‘Введите значения чисел А, В’); {оператор вывода}
Read(A,B); {оператор ввода значений переменных с клавиатуры}
S:=A+B; {оператор присваивания}
Writeln(‘S=‘, S); {оператор вывода значения}
Readln; {оператор ждет нажатия клавиши ввода}
End. {конец программы}

в. Исходные данные а=8, в=5

значение в');
Readln (b);
c:=sqrt (sqr(a)+sqr(b));
writeln ('гипотенуза равна ',c);
end.

в.
Задача 2: Рассчитайте среднее геометрическое двух неотрицательных чисел.
Задача 3: Дана

длина окружности L. Рассчитайте радиус окружности и площадь.

боковой стороны вводятся с клавиатуры.