Я так понял, что это творческое задание. Так подойди к этому творчески :)
Я не совсем понял, какое тебе описание нужно, но я так понял, что информация, написанная на визитке.
Самыми крупными буквами принято печатать имя и фамилию владельца, а должность – немного меньшими. Лучше использовать максимум 3 разных цвета и размера шрифта.
Далее прежде всего соблюдать логичность текстовых конструкций. Информационная часть, например имена, номера телефонов, название компании, логотип и т.д., должна располагаться не ближе чем в 5 мм от края макета. Важно сделать так, чтобы фон или фоновый рисунок обязательно выходил за границу важных элементов на всю площадь макета визитки и покрывал все пространство. Также необходимо правильно выбирать стиль, цветовую гамму и схему расположения элементов.
Прикрепил пример.
Бесплатная операционная система Linux. Вот есть платные операционные системы такие, как Windows, Unix (некоторые), MacOS и др.
На самом деле Linux это только ядро (основа) операционной системы, на которой создано много версий Linux (доработанных), например, Debian Linux, Ubuntu Linux, Slackware Linux, и тому подобных, их очень много.
Var a:array[1..20] of integer;
i,k1,k2:integer;
begin
for i:=1 to 20 do begin
read(a[i]);
if odd(a[i]) then k2+=1;
if not odd(a[i]) then k1+=1;
end;
writeln(k1,' ',k2);
<span>end.</span>
В первом задании:
1)Он просит ввести два значения, b и c
2)Идет подстановка в формулу дискриминанта, которая записана в переменную d
3)Вывод ответа, чему равен x1 и x2
Второе задание:
Write() выводит сообщение, Writeln() выводит сообщение и переносит на строчку вниз следующее.
1234
56
78
Третье:
Просит ввести два числа и потом как бы вывод а,b,a, но дело в том что переменные объявлены как integer, то есть целые числа, а значит 2.0 не прокатит ибо это число с плавающей точкой, другой тип данных и на выходе программы будет ошибка
Program n1;
var v: real;
begin
readln(v);
writeln(v*10/36);
end.