Хранить нужные объекты, упорядковывать информацию.
Блок схема представлена на изображении
1.
Var A,B : Integer;
Begin
Readln(A,B);
If A>B then Writeln(A,' ',B*B) else Writeln(B,' ',A*A)
end.
2.
Var A : Byte;
Begin
Readln(A);
Case A of
1..3 : Writeln('Первый квартал');
4..6 : Writeln('Второй квартал');
7..9 : Writeln('Третий квартал');
10..12 : Writeln('Четвертый квартал');
end;
end.
Program programName;
var x,y: real;
begin
writeln('Введите объем свободного пространства на жестком диске(Gb)');
readln(x);
y:=x/((350*35*55*2)/1073741824);
writeln('В свободное пространство размером ' x 'Gb вместится ' y:0:0 ' книг');
end.
Не проверял, но должно работать. Может возникнуть ошибка из-за русских символов, но тут уже сам.