//PascalABC.NET
//Версия 3.3, сборка 1627
begin
var a:=ReadInteger('введите натуральное число: ').ToString;
write('сумма 1 и последней цифры: ',a[1].ToDigit()+a[a.Length].ToDigit());
end.
Дано двухзначное и трехзначное число. Найти квадрат суммы десятков этих чисел.
Txt - Notepad++
doc - Microsoft Word
bmp - FastStone Image Viewer
pdf - Acrobat Reader
zip - 7z, WinZip
Var s:array[1..5] of string;
b:boolean;
i:integer;
begin;
b:=false;
for i:=1 to 5 do
begin;
readln(s[i]);
if s[i]='гимназия' then b:=true;
end;
if b=true then writeln('Да') else writeln('Нет');
end.