Контрольное задание №1-5 / 1-5 / zadanie_5

program Zadanie_5;
type karta = record
        nom: integer;
        zn: real;
end;
var
Z: karta;
begin
with Z do
        begin
        write ('‚ўҐ¤ЁвҐ ­®¬Ґа Ё§¬ҐаҐ­Ёп: ');
        readln (nom);
        write ('‚ўҐ¤ЁвҐ §­ зҐ­ЁҐ: ');
        readln (zn);
        write ('ђҐ§г«мв в: ',nom:5,zn:10:2);
        end;
readln;
end.