//Блок-схемы в приложении //Pascal ABC.NET v3.0 сборка 1111
//1 Var a,p,s:real; begin readln(a); p:=a*4; s:=a*a; writeln('P=',p); writeln('S=',s); end.
//2 Var a,b:integer; begin read(a,b); if a>b then writeln(b); if a=b then writeln('='); if a<b then writeln(a); end.
{На этом и закончу всем, кто когда либо и чем либо поддерживал данный проект. Думаю, он ещё многим послужит в критический момент. И я говорю не только про "списать домашку". Счастливо оставаться, господин Alviko. Может, ещё увидимся. Ваш, Глеб 'I3artle' Косырев}
Живёт одна лошадь за городом.У неё есть и деньги,и еда,и своё жильё.Читала это лошадка книжки и была самой умной лошадью в посёлке "Копыто".У неё была целая библиотека этих книг!Но слыхала она что есть такой предмет "ноутбук".Всё у лошади было, а ноутбука нет. Пошла лошадь по магазинам и купила себе 4 ноутбука,себе,соседке,детям и своим родителям. Хорошо лошадь жила с ноутбуком,прекрасно! В онлайне находила нужные ей книжки,игралась чуток в скачки и в покер.Услышала она про планшет.Пошла по магазину купила самый модный,самый красивый,самый большой планшет.Тоже был удобен,но ноутбук был по душе.Весь день в покер играла! А с планшетом с папой общалась,фото фотографировала.Но от ноутбука не отказалась! Продала планшет,ненужная вещь.А за эти деньги присоединила себе интернет!И жила лошадь в обнимку с ноутбуком.
//Pascal ABC.NET v3.0 сборка 1111
//1
Var
a,p,s:real;
begin
readln(a);
p:=a*4;
s:=a*a;
writeln('P=',p);
writeln('S=',s);
end.
//2
Var
a,b:integer;
begin
read(a,b);
if a>b then writeln(b);
if a=b then writeln('=');
if a<b then writeln(a);
end.
{На этом и закончу всем, кто когда либо и чем либо поддерживал данный проект. Думаю, он ещё многим послужит в критический момент. И я говорю не только про "списать домашку". Счастливо оставаться, господин Alviko. Может, ещё увидимся.
Ваш, Глеб 'I3artle' Косырев}