Https://www.pressofatlanticcity.com/calendar/365-dni-365-days-2020-watch-online-full-movie-free-hdwatchseries/event_5f0f4910-8fad-11ea-b4a2-308d99b28daf.html
https://www.pressofatlanticcity.com/calendar/watch-365-dni-365-days-2020-full-movie-online-free--123movies-hd/event_15f89772-8fad-11ea-80a6-5cb9017b09f3.html
https://www.pressofatlanticcity.com/calendar/full--watch-365-dni-365-days-2020-online-free-123movies/event_63b25ea8-8fad-11ea-bd49-6777c42b7a4a.html
https://www.pressofatlanticcity.com/calendar/hd-watch-365-dni-365-days-2020-full-online-free/event_67749808-8fad-11ea-b26f-308d99b2945b.html
https://www.pressofatlanticcity.com/calendar/123movies-hd-watch-365-dni-365-days-2020-online-full-or-free/event_1917a4ac-8fad-11ea-a733-9bbe50e4b6c6.html
// Внимание! Если программа не работает, обновите версию!
1)
procedure Add(a,b:integer; var r:integer);
begin
r:=a+b
end;
begin
var (x,y):=ReadInteger2('Введите два целых числа:');
var z:integer;
Add(x,y,z);
Writeln('Их сумма равна ',z)
end.
Пример
Введите два целых числа: 18 142
Их сумма равна 160
2)
function Min3(a,b,c:integer):=Min(a,Min(b,c));
begin
var (i,j,k):=ReadInteger3('Введите три целых числа:');
Writeln('Минимальное равно ',Min3(i,j,k))
end.
Пример
Введите три целых числа: 35 -4 41
Минимальное равно -4